home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 52 / Mac Magazin and MacEasy Magazine CD - Issue 52.iso / Updates / Stata 5.0 Ado-files / ado.sea / newado / sdtest.ado < prev    next >
Text File  |  1998-11-22  |  1KB  |  48 lines
  1. *! version 3.0.0  23oct1997
  2. program define sdtest
  3.     version 5.0
  4.     local varlist "req ex max(1)"
  5.     local exp "opt noprefix"
  6.     local if "opt"
  7.     local in "opt"
  8.     local options "BY(string) Level(integer $S_level)"
  9.     parse "`*'"
  10.     tempvar touse
  11.     mark `touse' `if' `in'
  12.  
  13.     if "`exp'"!="" {
  14.         if "`by'"!="" {
  15.             di in red "may not combine = and by()"
  16.             exit 198
  17.         }
  18.  
  19.         capture confirm number `exp'
  20.         if _rc == 0 { /* Do chi-squared test. */
  21.             _ttest one sdtesti `level' `touse' `varlist' `exp'
  22.             exit
  23.         }
  24.  
  25.         /* If here, do variance ratio test with 2 variables. */
  26.  
  27.         _ttest two sdtesti `level' `touse' `varlist' `exp'
  28.         exit
  29.     }
  30.  
  31.     /* If here, do variance ratio test with by() variable. */
  32.  
  33.         if "`by'"=="" {
  34.                 di in red "by() option required"
  35.                 exit 100
  36.         }
  37.  
  38.         confirm variable `by'
  39.  
  40.         local nbyvars : word count `by'
  41.         if `nbyvars' > 1 {
  42.                 di in red "only variable allowed in by()"
  43.                 exit 103
  44.         }
  45.  
  46.     _ttest by sdtesti `level' `touse' `varlist' `by'
  47. end
  48.